home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual Foxpro 6.0 (Ent. Edition) / Vf6ent Extractor.EXE / TOOLS / XSOURCE / XSOURCE.ZIP / vfpsource / wizards / Wzgraph / grstart.prg < prev    next >
Encoding:
Text File  |  1998-05-01  |  1.8 KB  |  70 lines
  1. * This is the stub which you should copy (place the modified version in
  2. * your Wizard's directory), rename, and modify to call your wizard.
  3.  
  4. * Note: cOutFileVar is not used with GraphWizard, but is used in WIZTEMPLATE
  5. * so let's switch parameters if we have a query source.
  6.  
  7. PARAMETER cOutFileVar, p2, p3, p4, p5, p6, p7, p8, p9, p10
  8. LOCAL cClassLib,cProcs,cWizardToRun,cTempVar
  9.  
  10. m.cClassLib = set('classlib')
  11. m.cProcs = set('proc')
  12. m.cTempVar = ""
  13.  
  14. * Check Parms
  15. IF TYPE("m.cOutFileVar") = "C"
  16.     m.cTempVar = m.cOutFileVar
  17. ENDIF
  18.  
  19. * Handle AUTOGRAPH case here
  20. IF ATC("AUTOGRAPH",m.cTempVar) # 0
  21.     cProcs = set('proc')
  22.     SET PROCEDURE TO wzengine
  23.     SET PROCEDURE TO graphwiz ADDITIVE
  24.     oWizard=create('graphengine')
  25.     IF TYPE("m.oWizard") = "O"
  26.         oWizard.AutoGraph(m.p2,m.p3,m.p4,m.p5,m.p6,m.p7,m.p8,m.p9,m.p10)
  27.     ENDIF
  28.     RELEASE oWizard
  29.     SET PROCEDURE TO &cProcs
  30.     RETURN .T.
  31. ENDIF
  32.  
  33. IF ATC("QUERY",m.cTempVar) # 0
  34.     m.p2 = "QUERY"
  35. ENDIF
  36.  
  37. IF ATC("WIZARD",m.cTempVar) # 0
  38.     m.p2 = "WIZARD"
  39. ENDIF
  40.  
  41.  
  42. m.cWizardToRun = "graphwizard"
  43.  
  44. SET CLASS TO graph ADDITIVE
  45.  
  46. * The name "oWizard" is used in automated testing and should *NOT* be changed.
  47. public oWizard
  48. oWizard = createobj(m.cWizardToRun,m.cOutFileVar, m.p2, m.p3, m.p4, ;
  49.     m.p5, m.p6, m.p7, m.p8, m.p9)
  50.  
  51. if type('oWizard') = 'O' .and. .not. isnull(oWizard)
  52.     oEngine.aEnvironment[17,1] = m.cClassLib
  53.     oWizard.Show
  54. endif
  55. if type('oWizard') = 'O' .and. .not. isnull(oWizard)
  56.     * It must be modeless, so leave it alone
  57. else
  58.     release oWizard
  59.     CLEAR CLASS graphwizard
  60.     CLEAR CLASS wiztemplate
  61. endif
  62.  
  63. return
  64.  
  65. PROCEDURE dummy
  66.     * This routine is used to resolve Project array references.
  67.     public aflddata[1],afielddata[1],atmpglobals,awizfields,aparms
  68.     public aflddata[1],aglobals[1],aafielddata[1],atmpglobals[1]
  69.     public awizfields[1],aparms[1]
  70. ENDPROC